home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / src / ConfigFileSrc.lha / ConfigFileSrc12 / RexxLibrary / Funcs / Next.c < prev    next >
Encoding:
Text File  |  1997-10-02  |  2.7 KB  |  119 lines
  1. /*
  2. **        $PROJECT: RexxConfigFile.library
  3. **        $FILE: Next.c
  4. **        $DESCRIPTION: rxcf_Next#?() functions
  5. **
  6. **        (C) Copyright 1997 Marcel Karas
  7. **             All Rights Reserved.
  8. */
  9.  
  10. IMPORT struct Library *CFBase;
  11.  
  12. /****** rexxconfigfile.library/cf_NextArgument *******************************
  13. *
  14. *   NAME
  15. *        cf_NextArgument -- Returns the next argument node.
  16. *
  17. *   SYNOPSIS
  18. *        NextArgNode = cf_NextArgument(ArgNode)
  19. *
  20. *        NEXTARGNODE/N cf_NextArgument(ARGNODE/N/A)
  21. *
  22. *   FUNCTION
  23. *        This function returns the next argument node, or NULL if there are
  24. *        no more argument nodes in the list.
  25. *
  26. *   INPUTS
  27. *        ArgNode - The argument node.
  28. *
  29. *   RESULT
  30. *        NextArgNode - Next argument node or NULL.
  31. *
  32. *   SEE ALSO
  33. *        cf_NextGroup(), cf_NextItem(), cf_LockArgList()
  34. *
  35. ******************************************************************************
  36. *
  37. */
  38.  
  39. UWORD rxcf_NextArgument ( RX_FUNC_ARGS, CFArgument    * ArgNode )
  40. {
  41.     CFArgument    * NextArgNode;
  42.  
  43.     if ( NextArgNode = cf_NextArgument (ArgNode) )
  44.         *ResStr = CreateNumArgStrP (NextArgNode);
  45.     return (RC_OK);
  46. }
  47.  
  48. /****** rexxconfigfile.library/cf_NextGroup **********************************
  49. *
  50. *   NAME
  51. *        cf_NextGroup -- Returns the next group node.
  52. *
  53. *   SYNOPSIS
  54. *        NextGrpNode = cf_NextGroup(GrpNode)
  55. *
  56. *        NEXTGRPNODE/N cf_NextGroup(GRPNODE/N/A)
  57. *
  58. *   FUNCTION
  59. *        This function returns the next group node, or NULL if there are no
  60. *        more group nodes in the list.
  61. *
  62. *   INPUTS
  63. *        GrpNode - The group node.
  64. *
  65. *   RESULT
  66. *        NextGrpNode - Next group node or NULL.
  67. *
  68. *   SEE ALSO
  69. *        cf_NextArgument(), cf_NextItem(), cf_LockGrpList()
  70. *
  71. ******************************************************************************
  72. *
  73. */
  74.  
  75. UWORD rxcf_NextGroup ( RX_FUNC_ARGS, CFGroup * GrpNode )
  76. {
  77.     CFGroup    * NextGrpNode;
  78.  
  79.     if ( NextGrpNode = cf_NextGroup (GrpNode) )
  80.         *ResStr = CreateNumArgStrP (NextGrpNode);
  81.     return (RC_OK);
  82. }
  83.  
  84. /****** rexxconfigfile.library/cf_NextItem ***********************************
  85. *
  86. *   NAME
  87. *        cf_NextItem -- Returns the next item node.
  88. *
  89. *   SYNOPSIS
  90. *        NextItemNode = cf_NextItem(ItemNode)
  91. *
  92. *        NEXTITEMNODE/N cf_NextItem(ITEMNODE/N/A)
  93. *
  94. *   FUNCTION
  95. *        This function returns the next item node, or NULL if there are no
  96. *        more item nodes in the list.
  97. *
  98. *   INPUTS
  99. *        ItemNode - The item node.
  100. *
  101. *   RESULT
  102. *        NextItemNode - Next item node or NULL.
  103. *
  104. *   SEE ALSO
  105. *        cf_NextArgument(), cf_NextGroup(), cf_LockItemList()
  106. *
  107. ******************************************************************************
  108. *
  109. */
  110.  
  111. UWORD rxcf_NextItem ( RX_FUNC_ARGS, CFItem * ItemNode )
  112. {
  113.     CFItem    * NextItemNode;
  114.  
  115.     if ( NextItemNode = cf_NextItem (ItemNode) )
  116.         *ResStr = CreateNumArgStrP (NextItemNode);
  117.     return (RC_OK);
  118. }
  119.